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-TITLE BANNER = GENERATE A WIDE LINE ON PRINTER 
IDENT ‘Vv04=000' 


Page 


lag cin dea aac tla i Soe atonal a tama ee aaa aa gta ale 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, - MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND mot 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
vannsecantee” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ookatite. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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:++ 
; FACILITY: VAX/VMS PRINT SYMBIONT 
; ABSTRACT: THIS ROUTINE WILL PRINT WIDE LINE OF CARACTERS 


ON THE PRINTER FOR FLAG/BURST PAGES 


; ENVIRONMENT: NATIVE/USER MODE NON-PRIVILEGED CODE 
; AUTHOR: H.B.BOSWELL, CREATION DATE: 21-APR-77 
; MODIFIED BY: 


v03-006 RRBOO13 Rowland R. Bradley 22-Mar-1984 
Change to force lowercase to uppercae. 

v03-005 GRROOO9 Gregory R. Rober 29-Sep-1983 
Changed Library module name needy smbdef to ortsmbdef. 

V3B-004 GRR4004 Gregory R. Rober 29-5 


ul-1983 
Changed module name from PSMSBANNER to BANNER and changed 
returned size to word context. 


V3B-003 GRR4003 Gregory R. Rober 27-May-1983 
Changed entry point from PSMSBANNER to PSMSSB NNER. 
v03-002 GRROOO2 GREGORY R BOBERT 19=MAY-1983 


HANDLE ZERO LENGTH STRINGS CORRECTLY 
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v04- 197 <5 P=] 1382 9s: 93: gf PRTSMB.S SRCIB BANNER.MAR; 1 si (i) 

0 8 ; v03-001 GRROOO! cngcony 8 ROBERT 07-0CT- 1982 

; REVISED TO SERVE AS TEMPORARY WIDE/TALL CHARACTER 
o9 ; GENERATOR FOR NEW PRINT SYMBIONT FLAG PAGE ROUTINES 

900 6¢ : , + VERSION 

0 63; 01 - 

000 64 ;-- 
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DECLARATIONS 


-r~wwrr oor 


ss 8s 8&8 &© 8&8 & . 


OF ON Ov 


sNUMBER OF CHARACTERS PER COLUMN 
; INTER CHARACTER SPACING 
ADDRESS OF WORD FOR RESULTANT LENGTH 


;FONT CHARACTER 
ADDRESS OF OUTPUT BUFFER 


PRECEEDING SPACE COUNT 
NUMBER OF LINES PER ROW 
CURRENT LINE NUMBER 


s;ARGUEMENT COUNT 

: STREAM CONTROL BLOCK 
;BYTE COUNT 

;BUFFER ADDRESS 


ses &© © & ss © & & 


,LO, TABLE 
S ARE USED TO GENERATE THE CHARACTERS 


TS LONG, 1 BIT FOR EACH POSITION IN 
7 
0 
1 
7 
4 
6 
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DEFINE THE OFFSET TO INPUT ARGUMENTS AS THE APPEAR 


MACRO TO GENERATE A TABLE FOR CHARACTER DECODING 
IN THE ARGUEMENT BLOCK 


-SBTTL DECLARATIONS 


Sprtsmbdef 


-MACR 
-ASCI 
«WORD 

ENDM 


BIT MASK TABLE FOR NUMBERS 0-9 


EQUATED SYMBOLS: 
OWN STORAGE: 
THE FOLL 


ee re retreats *ere rere rere ee rere eerertetererom ere 
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DOOOOP-P-P-P-P-P-P-P-P-F- DW DWDWWDDDDMODAO OO MOPAR OOCOCOCOCOCOCC OO SK KNOG 
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v0G= DECLARATIONS me eats aS a fe ad ls +t nl 


NUMERIC: 
iF Ald 


=) 
= 
o 
Nn 
mm 
Oo 
fo Te) 


: BIT MASK £OR UNDER SCORE CHARACTER 
UNDERSCORE : 


0007 C000 0000 ORD “*00,*0140000,*07 


: THE DOLLAR SIGN 


3 
4 
0 
4 
‘ 
: 
9 
40 
00A6 41 DOLLARS: 
0001 1F47 17C4 O0A6 $s -WORD %*0013704,°0017507,°%01 
OOAC 4 
OQOAC 44; 
OOAC 45 ; BIT MASK TABLE FOR ‘.' 
OQOAC 46 ; 
OOAC 47 
OOA 48 DOT: 
0003 1800 0000 OOAC 49 -WORD %*00,*°014000,*03 
008 50 
008 51; 
008 26 ; BIT MASK FOR ':;° 
ooBs 184° 
0008 8630 0C60 18C0 3180 ppee 32 COLONS: .WORD *%*030600,°014300,°0006140,*0103060,*010 
00BC $7: 
00BC 58 ; BIT MASK TABLE FOR ‘ ° 
00BC 59 ;: 
00BC 60 
00BC 61 BLANK: 
0000 0000 0000 pes 6¢ -WORD *00,°00,*00 
doce 64 ; THE FOLLOWING TABLE IS USED TO DECODE WHICH BIT TABLE CONTAINS 
be 2 ; THE INFORMATION ABOUT A GIVEN CHARACTER. 
aoc2 8$ HECODE: 
0C 68 DECTAB .-3-a s;DECODE ALPHAS 
00C6 69 DECTAB ~O0,NUMERIC ;AND NUMBERS 
OOCA 70 DECTAB <;>,<:>,COLONS 3; THE COLONS 
$3 71 DECTAB <_>,<_>,UNDERSCORE ; THE UNDERSCORE CHARACTER 
0D 8 DECTAB <$>,<$>,DOLLARS sTHE OLD BUCK MARKER 
006 7 DECTAB <.>,<.>,DOT ;THE PERIOD 
00 FF OODA 174 -BYTE 255.0 SCATCH ALL 
FFEO OODC 75 ~ WORD BLANK-. ;PRINT A SPACE 


OOCOCCooO 
COOOCCCOOCOCCOSO 
r>PrPrrrrrrrr>,r 
oO AAAS oo 
tatatatad adadatabadadad iatadatatatadadadad iatatad datadadadad abated edad ad ded abat dad ad ad adadadadatadad 


Ra 
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_ BANNER = GENERATE A WIDE LINE ON PRINTER 16-SEP-1984 9: 4 AX/VMS Macro v04-00 Page 
hive GENERATE Fat CHARACTERS ee $5 :93 PRTSMB.SRCJBANNER.MAR; 1 . 
| DE 177 -SBTTL GENERATE THE CHARACTERS 
DE 178 poe 
| 43 +4 ; FUNCTIONAL DESCRIPTION: 
DE 181; THIS ROUTINE USES A 5X7 ARRAY OF att TO GENERATE 
DE 1 ¢ ; CHARACTERS ON THE PRINTER THE ROUTINE IS USED TO GENERATE 
+3 ! ? 5 THE BANNER CHARACTERS FOR FLAG PAGES 
ODE 185 ; CALLING SEQUENCE: 
ODE 1 $ 3 
4: ! : CALL PSMSBANNER 
SE 1 § : INPUT PARAMETERS: 
OODE 190 ; 
OODE 191 ; PO1 SCB: ADDRESS OF THE gy coyrne. BLOCK 
OODE 136 i PO2 COUNT: COUNT OF STRING TO OUT 
OODE 193 ; POS ADR: ADDRESS OF STRING TO TEN bUT 
OODE 194 ; P04 SPACOUT: NUMBER OF inte SPACES ON EACH LINE 
OODE 195 ; POS WIDTH: NUMBER OF TIMES TO REPEAT A CHARACTER ON A ROW 
OODE 196 ; P06 HEIGHT: NUMBER OF TIMES EACH LINE IS PRINTED 
OODE 197 ; PO7 SPACING: NUMBER OF BLANK CHARACTERS BETWEEN BIG a 
OODE 198 ; PO8 CHAR: BANNER CONSTRUCTION ee IF NOT SELF 
OODE 199 ; PO9 ADDRESS: ADDRESS OF OUTPUT BUFFER 
OODE 200 ; P10 LINENO: CURRENT LINE NUMBER (0 to (6 * HEIGHT) 
it43 sos : P11 RETLEN: ADDRESS OF WORD TO RECEIVE RESULTANT LENGTH 
OODE $03 ; IMPLICIT INPUTS: 
OODE 204 ; 
OODE 205; NONE 
OODE soe 3 
OODE 07 ; OUTPUT PARAMETERS: 
OODE 208; 
OODE 209; NONE 
OODE s19 3 
OODE 11. ; IMPLICIT OUTPUTS: 
OODE si : 
OODE $1 : THE WIDE LINE IS PRINTED 
OODE 14; 
OODE 15 ; COMPLETION CODES: 
OODE 16 ; 
OODE 17 ; ALWAYS SS$_SUCCESS 
OODE 18 ; 
OODE 19 ; SIDE EFFECTS: 
BRpe $9 3 
DE 1 3 NONE 
OODE § 3 
OODE 3e° 
ODE 4 
ODE 5 PSMSBANNER: : PRINT A WIDE LINE 
O3FC OD § ~ WORD atk R3,R4,R5,R6,R7,R8, age > SAVE NONCVOLATILE REGISTERS 
04 AC DO OOE MOVL B(AP),RO - sFETCH ADDRESS OF SCB 
58 28 AC 14 AC f OE4 8 DIVL3 HELGHT (AP) LINENOC(AP), RB: COMPUTE +!* NUMBER 
6 8 AC ) OEA MOVaQ COUNT (AP) R6 ;GET COUNT TO R6, LINE soper ss TO R7 
23 4 AC b0 +33 0 MOVL ADDRESS (AP) RO [GET ADDRESS OF COCAL BUF FE 
2 10 AC 1) OF 1 MOVL so COUTC(AP) ,R2 : COUNT OF LEADING SPACES ON THE LINE 
09 1 arg § BEQL 7$ R * LEADING SPACES WANTED 
51 20 9A OOF 208: MOVZBL #*A/ /,R1 “GET A PACE 
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WIDE LINE ON PRINTER 16-SEP-1984 02:09:27 VAX/VMS Macro V04-00 Page 6 
CHARACTERS sets 95:08:55 CPRTSMB. SRCIBANNER. MAR: 1 ~ a 
4 25$ OVB = R1, (RO) + ;STORE THE CHARACTER 
5 SOBGTR R2.25$ ‘REPEAT IF NECESSARY | 
§ 27S: TSTL R SCHECK FOR ZERO LENGTH STRING 
BEQL 6-908 ‘BRANCH IF NO INP 
: 30$ MOVZBL (R7),R3 GET CHARACTER 10-P RINT 
CMPB#*X66,R3 SCMECK CHAR FOR LOWERCASE - LOW LIMIT 
40 BLEQ 38% ; BRANCH IF LESS T 
41 CMPB ss #*X7B,R3 ; HIGH LIMIT 
4¢ BGEQ 38% + BRANCH iF GREATER THAN '7Z° 
4 SUBB2 #*x20 Ry : FORCE UPPER 
44 388: MOVAL DECODE-3,R4 ADDRESS” OF DECODE TABLE 
46 ADDL #3.,R4 sADVANCE TO NEXT TABLE ENTRY 
4 CMP Q3°(R4)+ ‘CHECK AGAINST HIGH LIMIT 
48 BGTRU 40$ ‘BR IF OUT OF ul IT 
49 CMPB sR, (RG) iNOW CHECK LOW 
50 BLSSU 408 :BR IF IN RANGE “OF TABLE 
51 U (R4)+,R3 SREMOVE TABLE 
3 CVTWL (RG), R1 [GET OFFSET TO ABLE 
5 DL é sFIND REAL ADDRESS OF T 
54 MULL. #35,R3 +; IND INDEX TO FIRST BIT IN CHARACTER 
55 MULL3 #5,R8,R1 ‘FIND INDEX FOR PROPER R 
56 ADDL R1.R3 [FIND FIRST BIT TO TEST FOR THIS ROW 
57 MOVL #5.R5 iSET NUMBER OF COLUMNS TO OUTPUT 
58 70$ MOVZBL CHAR(AP),R1 [GET THE FONT CHARA Act ER 
59 BNEQ 75% ‘BRANCH IF WE GOT ON 
60 MOVZBL (R7),R1 [USE THE CHARACTER ITSELF 
261 75$: BS R3, (R4) 80S ‘BR IF NO SPACE THIS TIME 
6¢ MOVZBL #*A/ /,R1 “PRINT SPACES 
63 80S: WIDTH(AP) ,R2 [GET NUMBER OF aGHARACTERS PER COLUMN 
64 82S: R1,(R9)+ SSTORE THE CHARACTER 
65 SOBGTR Re. 62S SREPEAT IF NECESSARY 
66 R [ADJUST BIT NUMBER UP 1 
267 R5,70$ REPEAT FOR 5 TIMES-NUMBER COLUMNS PER 
268 SPACING(AP) ,R2 ‘GET NUMBER OF BLANKS FOR SEPARATION 
69 R7 ADVANCE CHARACTER POINTER 
70 R6, 208 SLOOP AROUND IF MORE CHARACTERS TO DO 
71 90S: ADDRESS (AP) ,R9,RO [COMPUTE LENGTH 
ere RO, @RETLEN(AP) 'STORE COMPUTED LENGTH 
373 #SS$_NORMAL ,RO [RETURN SUCCESS 
275 
276 


The working 


it Limit was 900 pages. 
19222 bytes _(38 pages) of virtua 

There were 30 pages of symbol table space allocated to hold 
276 source Lines were read in Pass 1, producin 
9 pages of virtual memory were used to define 


memory were used to buffer_the intermediate cod 
D 7 non-local and 11 
12 object records in Pass 2 

macros. 


e. 
local symbols. 
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ii - GENERATE A WIDE LINE ON PRINTER Ig-SEP-1986 03:09:27 AX/VMS Macro v04-00 Page 7 DIs 
Symbol table =SEP=1984 40:27 (CPRTSMB.SRCJBANNER.MAR; 1 (1) Vv 
ADDRESS = 00000024 ; 
ADR = 00 ; 

R 01 ; 

SL ADK * 00 RO 
CHAR = BpoSROS 
COLONS 4 4443 R 01 3 
COUNT = 000000 3 
DECODE 00000C2 R 01 : 
DOLLARS OO0000A6 R 01 3 
T QOOOOAC R 01 3 
HEIGHT = BRO NRT 3 
LINENO = 0000 ¢o : 
ERIC 00000074 01 3 
PSMSBANNER QOOOOODE RG 01 : 
RETLEN = 0000002C 3 
cB = 00000004 3 
SPACING = 0000001C : 
SPACOUT = 00000010 g 
SS$_NORMAL tteneree = X 01 : 
UNDERSCORE QO0000A0 R 01 F 
WIDTH = 0000001 : 
te ew me ee oe + P+ 

! Psect synopsis ! : 

$e we wee Oe ew me ee oO 

PSECT name Allocation PSECT No. Attributes ; 
ABS 00000000 ( 0.) 00 ¢ OO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE P 
BLANK 00000174 ( 372.) 01 ¢ NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE | ; 
S$ 00000000 «¢ 0.) 02¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE | : 

few ren een wee ese eee seer ens + | P 

' Performance indicators ! : 

poem aw ow nor arn enw cer ecw wane P+ 

Phase Page faults CPU Time Elapsed Time : 
Initialization 16 00:00:00.05 00:00 :00-66 5 
Command processing 78 00:00:00.50 ee 0 d 
Pass 1 148 Se oe 00:00:13.44 : 
Symbol table sort 0 00:00:00.49 00:00:00.86 “ 
Pass 2 51 88 288: 8-88 es SL 3 
Symbol iable output 3 0:00:00.03 0:00:00.03 3 
Psect synopsis output 2 00:00:00.02 00:00:00.18 ; 
Cross-reference output 0 00:00:00.00 00:00:00.00 F 
Assembler run totals 298 00:00:05.71 00:00:20.96 : 
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poor ern ea nee nwo nem en esas acoee + 


! ; Macro. library statistics : 


‘Macro Library name Macros defined 
“$52 280U age: tSystie OBJJSMBDEF .MLB; 1 1 
“$255$D VSLIBISTARLET. MLB; 3 

TOTALS (all Libraries) 4 


384 GETS were required to define 4 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:BANNER/OBJ=O0BJ$:BANNER MSRC$:BANNER/UPDATE=(ENH$: BANNER) +L 1B$: SMBDEF/LIB 


